home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
pascal
/
bp7_os2.zip
/
HELLO2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-11-10
|
384b
|
16 lines
Program HelloOS2; {$R-,I-,S-,Q-}
{--- 1993 Matthias Withopf / c't ---}
Procedure DosWrite(Handle : Word;Str : PChar;
Count : Word;Var WCount : Word); Far;
External 'DOSCALLS' Index 138;
Procedure DosExit(x : Word;ExitCode : Word); Far;
External 'DOSCALLS' Index 5;
Var
w : Word;
Begin
DosWrite(1,'Hello, OS/2!'^M^J,14,w);
DosExit(1,0);
End.